home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.15 / kickpascal-programme / gbord / anleitung next >
Text File  |  1995-04-22  |  1KB  |  33 lines
  1.  
  2.  
  3. Liebe Purityleserin, lieber Purityleser !!!
  4.  
  5. Heute mal wieder eine neue kleine Prozedur, die einem das Programmierer-
  6. leben vereinfacht. Viele haben sich über meine Prozedur umrandung, die
  7. dreidimensionale Gadgetumrandungen erzeugt, sehr gefreut. Allerdings hatte
  8. die einen Nachteil: Änderte man die Koordinaten des Gadgets, mußte man
  9. die zugehörigen Koordinaten der Prozedur umrandung auch ändern. Kein Grund
  10. die Gute alte Prozedur umrandung wegzuschmeißen. Man benutzt einfach die
  11. Prozedur gbord !!! Diese greift auf die Prozedur Umrandung zu. Der
  12. Vorteil von Ihr ist jedoch, daß man nur das Fenster, auf dem die Umrandung
  13. erscheinen soll, und das Gadget, das umrandet werden soll übergeben
  14. werden muß. Die Vorteile liegen auf der Hand: Es müssen keine 7, sondern
  15. nur zwei Parameter übergebn werden, und wenn man das zugehörige Gadget
  16. verändert, braucht man keine neuen Koordinaten zu übergeben.
  17.  
  18. Und das schönste ist, daß die Prozedur gbord so klein ist:
  19.  
  20. PROCEDURE gbord(wo:p_window,was:p_gadget);
  21.  BEGIN
  22.   umrandung(wo,2,1,was^.Leftedge,was^.Topedge,was^.Width,was^.height);
  23.  END;
  24.  
  25. Anbei noch ein kleines Beispielprogramm, das demonstriert, wie einfach
  26. jetzt alles geworden ist.
  27.  
  28.  
  29.  
  30.                     Røgersoft
  31.  
  32.  
  33.